home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Herois / Codigo.Cst / 00184_Marvel- Troca fotos.ls < prev    next >
Encoding:
Text File  |  1999-03-19  |  1.8 KB  |  59 lines
  1. property spr, mem
  2. property fotoAtual, posicao -- posicao = 0 .. 10000, posicao da foto
  3.  
  4. on beginSprite me
  5.   set spr = the spriteNum of me
  6.   set mem = the number of member "MarvelFotinhas"
  7.   set fotoAtual = the number of the member of sprite spr
  8.   set posicao = 0
  9.   repeat with i = 0 to 3
  10.     puppetSprite i + spr, true
  11.   end repeat
  12. end
  13.  
  14. on scrollLinha me, move
  15.   scroll me, move*42
  16. end
  17.  
  18. on scroll me, move
  19.   repeat while move <> 0
  20.     if move + posicao < 0 then
  21.       set move = move + posicao
  22.       set posicao = 10000
  23.       set the member of sprite (spr+2) to┬¼
  24.            the member of sprite (spr)
  25.       set the member of sprite (spr+3) to┬¼
  26.            the member of sprite (spr+1)
  27.       set fotoAtual = fotoAtual - 2
  28.       if fotoAtual < mem then set fotoAtual = mem + 6
  29.       set the member of sprite spr to┬¼
  30.            member fotoAtual
  31.       set the member of sprite (spr+1) to┬¼
  32.            member (fotoAtual + 1)
  33.     else if move + posicao > 10000 then
  34.       set move = move - (10000 - posicao)
  35.       set posicao = 0
  36.       set the member of sprite (spr) to┬¼
  37.            the member of sprite (spr+2)
  38.       set the member of sprite (spr+1) to┬¼
  39.            the member of sprite (spr+3)
  40.       set fotoAtual = fotoAtual + 2
  41.       if fotoAtual > mem + 6 then set fotoAtual = mem 
  42.       set tmp = fotoAtual + 2
  43.       if tmp > mem + 6 then set tmp = mem
  44.       set the member of sprite (spr+2) to┬¼
  45.            member tmp
  46.       set the member of sprite (spr+3) to┬¼
  47.            member (tmp+1)
  48.     else
  49.       set posicao = posicao + move
  50.       set tmp = posicao - 5000
  51.       if tmp < 0 then set tmp = 0
  52.       set the locV of sprite spr to 208 - 150 * tmp / 5000
  53.       set the locV of sprite spr+2 to 358 - 150 * tmp / 5000
  54.       set the locV of sprite spr+1 to 208 + 150 * tmp / 5000
  55.       set the locV of sprite spr+3 to 58 + 150 * tmp / 5000
  56.       set move = 0
  57.     end if
  58.   end repeat
  59. end